Terrain-Height-Terrain names an undocumented function, with lambda list (OBJECT).
(SETF Terrain-Height-Terrain) names an undocumented function, with lambda list (NEW-VALUE OBJECT).